Option Explicit
Sub F_Sample033()
    'Microsoft DAO 3.6 Object Library ]wޥζ
    Dim myDb           As DAO.Database
    Dim myFileFullName As String
    'ws@ɮצW
    myFileFullName = ThisWorkbook.Path & "\NewDb.mdb"
    'PWmdbɮצsbɴNNR
    If Dir(myFileFullName) <> "" Then Kill myFileFullName
    Set myDb = CreateDatabase(myFileFullName, dbLangJapanese)
    myDb.Close
    If Dir(myFileFullName) <> "" Then MsgBox "mdbɮפwgQs@X"
    Set myDb = Nothing					'
End Sub
